Program Tp;
uses
    Dos,crt;
    
Const
    MAX_PEDIDOS = 200;

Type
    {$I DataTypes.pas}

    {$I FileManagment.pas}

    {$I ManejoPedidos.pas}
     
    {$I ManejoReparaciones.pas}
    
Var
    RepuestoBuscado : Repuesto;    
    RepuestoEncontrado : Repuesto;    
Begin

    RepuestoBuscado.Codigo := 50120; 
    RepuestoEncontrado := BuscarRepuesto(RepuestoBuscado);
    
    Writeln('Codigo encontrado : ', RepuestoEncontrado.Codigo);    
    Writeln('Descripcion encontrado : ', RepuestoEncontrado.Descripcion);    
    Writeln('Cantid Disponible encontrado : ', RepuestoEncontrado.CantidadDisponible);    
    Readln;
 
    RepuestoBuscado.Codigo := 50120; 
    RepuestoEncontrado := BuscarRepuesto(RepuestoBuscado);
    
    Writeln('Codigo encontrado : ', RepuestoEncontrado.Codigo);    
    Writeln('Descripcion encontrado : ', RepuestoEncontrado.Descripcion);    
    Writeln('Cantid Disponible encontrado : ', RepuestoEncontrado.CantidadDisponible);    
    Readln;
    
End.
